﻿Public Class Negocio_categorias

    Dim x As ProyectoEnCapa.Datos_categoria
    Sub New()
        x = New ProyectoEnCapa.Datos_categoria

    End Sub
    Function agregahorario(ByVal nodo As Entidades.Categorias) As Boolean
        validocategoria()

        Return x.agregacategoria(nodo)

    End Function
    Function consultacategorias() As DataSet
        Return x.consultacategoria()

    End Function
    Private Sub validohorario()
        Throw New NotImplementedException
    End Sub
End Class
